home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / paslib.arc / DATE.INC < prev    next >
Text File  |  1986-10-05  |  482b  |  19 lines
  1. TYPE
  2.     DATE = RECORD
  3.                  DAYOFWEEK,YEAR,MONTH,DAY:INTEGER; END;
  4.  
  5. VAR
  6.      D : DATE;
  7.  
  8. CONST WEEKST : STRING[21] = 'SunMonTueWedThuFriSat';
  9.       MONTHST: STRING[36] = 'JanFebMarAprMayJunJulAugSepOctNovDec';
  10.  
  11. PROCEDURE GETDATE(VAR D : DATE)
  12.       BEGIN
  13.            R.AX := $2A00;
  14.            MSDOS(R);
  15.            D.DAYOFWEEK := LO(R.AX);
  16.            D.YEAR      := R.CX;
  17.            D.MONTH     := HI(R.DX);
  18.            D.DAY       := LO(R.DX);
  19.       END;